home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / ezy_comm / ezy1023.zip / EKIT102.ZIP / DEMO.PAS next >
Pascal/Delphi Source File  |  1992-10-24  |  863b  |  45 lines
  1. (* Ezycom V1.01 Developers Kit
  2.  
  3.    Demo Program *)
  4.  
  5. program demo;
  6.  
  7. uses ezyfos,ezyinc;
  8.  
  9. procedure test;
  10.  
  11. var
  12.    tw : word;
  13.  
  14. begin
  15.    tw := getkey;
  16.    if (fossilerror > 0) then
  17.       begin
  18.          writeln(fossilerrorstring);
  19.       end else
  20.    if (getkey >= 256) then
  21.       begin
  22.          writeln('Special Key Hit: ',getkey);
  23.       end else
  24.       begin
  25.          writeln('Key Hit: ',chr(getkey));
  26.          if localkey then
  27.             writeln('Local Keyboard') else
  28.             writeln('Remote Keyboard');
  29.       end;
  30. end;
  31.  
  32.  
  33.  
  34. begin
  35.    writeln(chr(254) + ' Demo Firing up on Node ',node);
  36.    writeln(chr(254) + ' Sysop: ',configrec.sysop);
  37.    comport := 1;   (* comport 2 *)
  38.    if not initfossil then
  39.       begin
  40.          writeln(chr(254) + ' Fossil Init Error');
  41.          halt(1);
  42.       end;
  43.    test;
  44.    deinitfossil;
  45. end.